Politics in Academia
Graphs of about politics in academia
Data
Prepare Data
# Prep data
myCaption1 <- "www.dblogr.com/ or derekmichaelwright.github.io/dblogr/ | Data: MLI"
myCaption2 <- "www.dblogr.com/ or derekmichaelwright.github.io/dblogr/ | Data: Nakhaie & Adam (2008)"
d1 <- read.csv("data_canada_academia.csv") %>%
mutate(Party = factor(Party, levels = unique(.$Party)),
Measurement = factor(Measurement, unique(.$Measurement)))
#
myCaption3 <- "www.dblogr.com/ or derekmichaelwright.github.io/dblogr/ | Data: Pew Research"
myRespones <- c("Mostly positive", "Equal positive and negative", "Mostly negative")
d2 <- read_xlsx("data_science_trust.xlsx", "Effect on Society") %>%
mutate(Response = factor(Response, levels = myRespones))
d3 <- read_xlsx("data_science_trust.xlsx", "Trust")Political Views in Academia
2021
# Plot
mp <- ggplot(d1, aes(x = Party, y = X2021, fill = Measurement)) +
geom_col(position = "dodge", color = "black", alpha = 0.7) +
scale_fill_manual(name = NULL, values = c("darkblue", "steelblue")) +
theme_agData(legend.position = "bottom") +
labs(title = "Political Affiliations in Canada - 2021",
y = "Percent", x = NULL, caption = myCaption1)
ggsave("politics_in_academia_1_01.png", mp, width = 6, height = 4)2000
# Plot
mp <- ggplot(d1, aes(x = Party, y = X2000, fill = Measurement)) +
geom_col(position = "dodge", color = "black", alpha = 0.7) +
scale_fill_manual(name = NULL, values = c("darkblue", "steelblue")) +
theme_agData(legend.position = "bottom") +
labs(title = "Political Affiliations in Canada - 2000",
y = "Percent", x = NULL, caption = myCaption2)
ggsave("politics_in_academia_1_02.png", mp, width = 6, height = 4)1997
# Plot
mp <- ggplot(d1, aes(x = Party, y = X1997, fill = Measurement)) +
geom_col(position = "dodge", color = "black", alpha = 0.7) +
scale_fill_manual(name = NULL, values = c("darkblue", "steelblue")) +
theme_agData(legend.position = "bottom") +
labs(title = "Political Affiliations in Canada - 1997",
y = "Percent", x = NULL, caption = myCaption2)
ggsave("politics_in_academia_1_03.png", mp, width = 6, height = 4)1993
# Plot
mp <- ggplot(d1, aes(x = Party, y = X1993, fill = Measurement)) +
geom_col(position = "dodge", color = "black", alpha = 0.7) +
scale_fill_manual(name = NULL, values = c("darkblue", "steelblue")) +
theme_agData(legend.position = "bottom") +
labs(title = "Political Affiliations in Canada - 1993",
y = "Percent", x = NULL, caption = myCaption2)
ggsave("politics_in_academia_1_04.png", mp, width = 6, height = 4)Trust in Science
